{
Author:  Prof1983 prof1983@yandex.ru
Created: 22.03.2009
LastMod: 30.03.2009
}
unit AUIclDialogs;

interface

uses
  ComCtrls, Controls, Forms,
  ABase, AUI, AUIcl, AUIclWindow;

type
  TAUIDialog = class(TInterfacedObject, IAUIDialog)
  private
    FButtonsBox: IAUIclPanel;
    FWindow: IAUIWindow;
  protected // IAUIDialog
    function GetButtonsBox: IAUIBox;
    function GetWindow: IAUIWindow;
  public
    constructor Create(UI: IAUIcl; Flags: AUIWindowFlags);
  end;

implementation

{ TAUIDialog }

constructor TAUIDialog.Create(UI: IAUIcl; Flags: AUIWindowFlags);
begin
  FWindow := UI.NewWindow(Flags);

  FButtonsBox := IAUIclPanel(UI.NewBox(AUIBoxTypeV));
  FButtonsBox.Align := Integer(alBottom);
  FButtonsBox.Height := 35;
  FWindow.AddWidget(FButtonsBox);
end;

function TAUIDialog.GetButtonsBox: IAUIBox;
begin
  Result := FButtonsBox;
end;

function TAUIDialog.GetWindow: IAUIWindow;
begin
  Result := FWindow;
end;

end.
